﻿Imports System.ComponentModel
Imports System.Activities.Presentation.Metadata
Imports System.Drawing

Public Class MessageBoxActivityDesigner
    Implements IRegisterMetadata

    Public Sub Register() Implements System.Activities.Presentation.Metadata.IRegisterMetadata.Register

        Dim builder As New AttributeTableBuilder
        builder.AddCustomAttributes(
            GetType(MessageBoxActivity),
           New DesignerAttribute(GetType(MessageBoxActivityDesigner)),
           New DescriptionAttribute("メッセージボックスダイアログを表示します。"),
           New ToolboxBitmapAttribute(GetType(MessageBoxActivity), "messagebox.png"))

        MetadataStore.AddAttributeTable(builder.CreateTable)

    End Sub
End Class
